home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / twins.com / SCRTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-15  |  776 b   |  31 lines
  1. PROGRAM SCRTEST;
  2.  
  3. Uses Screens,Keys;
  4. VAR
  5.     X : BYTE;
  6.     Ch : CHAR;
  7.  
  8. BEGIN
  9.     CursorOff;
  10.     Scroll(0,0,0,24,79,GreenBG,ScrollUp);
  11.     FlashC(11,Black+GreenBG,'Twins Screen Test');
  12.   FlashC(12,Black+GreenBG,'Press any key to see 255 screen changes...');
  13.     Ch := Inkey;
  14.     FOR X := 0 TO 255 DO
  15.     FillScreen(CHR(X),Yellow+RedBG);
  16.     Scroll(0,0,0,24,79,RedBG,ScrollUp);
  17.     DrawBox(10,25,14,55,White+RedBG,DoubleBrdr);
  18.     FlashC(11,White+RedBG,'Twins Version 1.1');
  19.     FlashC(12,White+RedBG,'Copyright 1990 Brian Corll');
  20.     FlashC(13,White+RedBG,'Press a key...');
  21.     Ch := Inkey;
  22.     CopyScreen(10,25,14,55,1,1);
  23.     Ch := Inkey;
  24.     CopyScreen(10,25,14,55,1,50);
  25.     Ch := Inkey;
  26.     CopyScreen(10,25,14,55,21,1);
  27.     Ch := Inkey;
  28.     CopyScreen(10,25,14,55,21,50);
  29.     Ch := Inkey;
  30.     CursorOn;
  31. END.